home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MacHack 1994
/
MacHack 1994.toast
/
MacHack™94
/
Talks & Papers
/
Timothy Knox
/
yerk 3.66
/
Supplement
/
Unsupported
/
Optionals
/
LBug
< prev
next >
Wrap
Text File
|
1994-06-24
|
561b
|
38 lines
0 value dlevel
: (val")
r> dup 4+ >r @ count $ 3F and type 32 emit 32 emit
r> dup count + align >r count type
dup .
cr
;
: val" ( -- )
dlevel
IF
compile (val")
latest ,
word" c@ 1+ align allot
ELSE
word" drop
THEN
; immediate
: (msg")
r> dup 4+ >r @ count $ 3F and type 32 emit 32 emit
r> dup count + align >r count type
cr
;
: msg"
dlevel
IF
compile (msg")
latest ,
word" c@ 1+ align allot
ELSE
word" drop
THEN
; immediate